home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / tools / ask / gmd / source / gmdsp2.s < prev    next >
Text File  |  1998-09-29  |  1KB  |  50 lines
  1. *******************************************************************************
  2. * ＧＭＤサポート関数－２
  3. *******************************************************************************
  4.  
  5.     .include doscall.mac
  6.     .include gmd.mac
  7.     .xref    __GMD_Dev
  8.  
  9.     .text
  10.  
  11. *******************************************************************************
  12. *（２）読み込み->ファイル
  13. *    int    GMDReadData(unsigned char *data)
  14. *    return = 0 : 正常終了
  15. *        <0 : GMDが組み込まれていないと思われる
  16. *******************************************************************************
  17.  
  18.     .xdef    _GMDReadData
  19. _GMDReadData:
  20.     move.l    4(sp),a1
  21.     *
  22.     move.w    #1,-(sp)    * write open
  23.     pea    __GMD_Dev(opc)
  24.     DOS    _OPEN
  25.     addq.w    #6,sp
  26.     move.w    d0,d2
  27.     bmi    1f
  28.     * strlen
  29.     move.l    a1,a0
  30.     moveq.l    #-1,d1        * 次のaddで0にするため
  31. 2:    addq.l    #1,d1
  32.     tst.b    (a0)+
  33.     bne    2b
  34.     *
  35.     move.l    d1,-(sp)    * size
  36.     pea    (a1)
  37.     move.w    d2,-(sp)
  38.     DOS    _WRITE
  39.     lea    10(sp),sp
  40.     *
  41.     move.w    d2,-(sp)
  42.     DOS    _CLOSE
  43.     addq.w    #2,sp
  44. 1:
  45.     rts
  46.  
  47. *******************************************************************************
  48.  
  49.     .end
  50.